home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / MacPerl ƒ / Perl Source ƒ / Perl / UnLocalize < prev    next >
Text File  |  1993-10-23  |  205b  |  13 lines
  1. Perl -Sx "{0}" "{1}">"{2}" && Duplicate -y "{2}" "{1}" && Delete -y "{2}"
  2. Exit
  3.  
  4. #!/usr/bin/perl
  5.  
  6. while (<>) {
  7.     if (/^(.*=)(\s*\S+)(\s*)(###DEFAULT:)(.*)/) {
  8.         print "$1$5$3$4$5\n";
  9.     } else {
  10.         print;
  11.     }
  12. }
  13.